home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)ts.d64 / labyrinth.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  14KB  |  648 lines
  1. 10 POKE45,0:POKE46,63:CLR:RUN60
  2. 60 CO=55296
  3. 61 PRINT""
  4. 70 G=13*4096:POKEG+32,2:POKEG+33,11
  5. 90 PRINTCHR$(142);
  6. 100 GOSUB6300:FORI=1TO5
  7. 110 A=TI+60:PRINT"[145]* LABYRINTH *
  8. 120 Z[178][187](TI):[139]A[177]TI[137]120
  9. 130 A[178]TI[170]60:[153]"ON*           *
  10. 140 Z=RND(TI):IFA>TIGOTO140
  11. 150 NEXTI:DIMA(19,12),B(19,12)
  12. 160 A$(1)="[206]ORTH":A$(2)="[197]AST":A$(3)="[211]OUTH":A$(4)="[215]EST"
  13. 170 W$="[177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178]"
  14. 180 PRINTCHR$(14);:PRINT"[147][212]HIS GAME LETS YOU EXPLORE A[160]3-[196][201][205][197][206][211][201][207][206][208][210][207][202][197][195][212][201][207][206][160]";
  15. 190 PRINT"OF A[160][204][193][194][217][210][201][206][212][200].":PRINT"[212]HE [208][197][212] WILL FIRST CONSTRUCT IT AND
  16. 200 [153]"SHOW IT TO YOU.  (null)OU CAN THEN WALK
  17. 205 PRINT"THROUGH IT!
  18. 210 [141]2370
  19. 220 [153]"(null)OU CAN HAVE A LABYRINTH WITH A MAXIMUM SIZE OF 19 PEEK(null)(null)LEN(null)(null) LEFT$(null)(null)RIGHT$(null)(null)(null)(null)ATN";
  20. 230 [153]"(null)(null)(null)CLOSEANDCLOSE11   PEEK(null)(null)LEN(null)(null)CLOSE(null)VAL(null)(null)RIGHT$LENATN(null)(null)(null).CLOSE
  21. 240 REM CLEAR MAZE ARRAY
  22. 250 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  23. 260 M1[178]0:[129]I[178]0[164]19:[129]J[178]0[164]10:A(I,J)[178]0:B(I,J)[178]0:[130]J,I
  24. 270 [133]"LEFT$OW WIDE DO YOU WANT IT     CMDCMDCMDCMDCMDSINCMDCMDCMD";H
  25. 280 [139]H[178]0[176]H[177]19[167][153]"ONON";:[137]270
  26. 290 [133]"ONLEFT$OW DEEP                     CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDSINCMDCMDCMD";V
  27. 300 [139]V[178]0[176]V[177]11[137]290
  28. 310 [153]"ON(null)OW CREATING A"H"(null)"V"LABYRINTH
  29. 320 A=H*V+1
  30. 330 Q=0:Z=0:X=INT(H*RND(H))+1
  31. 340 REM SAVE MAZE ENTRY POINT
  32. 350 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  33. 360 AA[178]X
  34. 370 A(X,0)[178]1:C[178]2
  35. 380 R[178]X:S[178]1:[137]470
  36. 390 [143] START OF MAZE BUILD ROUTINE
  37. 400 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  38. 410 IFR<>HGOTO450
  39. 420 IFS<>VGOTO440
  40. 430 R=1:S=1:GOTO460
  41. 440 R=1:S=S+1:GOTO460
  42. 450 R=R+1
  43. 460 IFA(R,S-1)=0GOTO410
  44. 470 IFR-1=0GOTO910
  45. 480 IFA(R-1,S-1)GOTO910
  46. 490 IFS-1=0GOTO690
  47. 500 IFA(R,S-2)GOTO690
  48. 510 IFR=HGOTO570
  49. 520 IFA(R+1,S-1)GOTO570
  50. 530 REM LEFT/DOWN/RIGHT
  51. 540 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  52. 550 X[178][181](3[172][187](1))[170]1
  53. 560 [145]X[137]1320,1380,1440
  54. 570 [139]S[179][177]V[137]600
  55. 580 [139]Z[178]1[137]670
  56. 590 Q[178]1:[137]630
  57. 600 [139]A(R,S)[137]670
  58. 610 [143] LEFT/DOWN/UP
  59. 620 [143]"FREFREFREFREFREFREFREFREFREFREFREFRE
  60. 630 X=INT(3*RND(1))+1
  61. 640 ONXGOTO1320,1380,1530
  62. 650 REM LEFT/DOWN
  63. 660 REM"[184][184][184][184][184][184][184][184][184]
  64. 670 X[178][181](2[172][187](1))[170]1
  65. 680 [137]640
  66. 690 [139]R[178]H[137]830
  67. 700 [139]A(R[170]1,S[171]1)[137]830
  68. 710 [139]S[179][177]V[137]740
  69. 720 [139]Z[178]1[137]810
  70. 730 Q[178]1:[137]770
  71. 740 [139]A(R,S)[137]810
  72. 750 [143] LEFT/RIGHT/UP
  73. 760 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFRE
  74. 770 X=INT(3*RND(1))+1
  75. 780 ONXGOTO1320,1440,1530
  76. 790 REM LEFT/RIGHT
  77. 800 REM"[184][184][184][184][184][184][184][184][184][184]
  78. 810 X[178][181](2[172][187](1))[170]1
  79. 820 [137]780
  80. 830 [139]S[179][177]V[137]860
  81. 840 [139]Z[178]1[137]1320
  82. 850 Q[178]1:[137]890
  83. 860 [139]A(R,S)[137]1320
  84. 870 [143] LEFT/UP
  85. 880 [143]"FREFREFREFREFREFREFRE
  86. 890 X=INT(2*RND(1))+1
  87. 900 ONXGOTO1320,1530
  88. 910 IFS-1=0GOTO1150
  89. 920 IFA(R,S-2)GOTO1150
  90. 930 IFR=HGOTO1070
  91. 940 IFA(R+1,S-1)GOTO1070
  92. 950 IFS<>VGOTO980
  93. 960 IFZ=1GOTO1050
  94. 970 Q=1:GOTO1010
  95. 980 IFA(R,S)GOTO1050
  96. 990 REM DOWN/RIGHT/UP
  97. 1000 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184]
  98. 1010 X[178][181](3[172][187](1))[170]1
  99. 1020 [145]X[137]1380,1440,1530
  100. 1030 [143] DOWN/RIGHT
  101. 1040 [143]"FREFREFREFREFREFREFREFREFREFRE
  102. 1050 X=INT(2*RND(1))+1
  103. 1060 GOTO1020
  104. 1070 IFS<>VGOTO1100
  105. 1080 IFZ=1GOTO1380
  106. 1090 Q=1:GOTO1130
  107. 1100 IFA(R,S)GOTO1380
  108. 1110 REM DOWN/UP
  109. 1120 REM"[184][184][184][184][184][184][184]
  110. 1130 X[178][181](2[172][187](1))[170]1
  111. 1140 [145]X[137]1380,1530
  112. 1150 [139]R[178]H[137]1250
  113. 1160 [139]A(R[170]1,S[171]1)[137]1250
  114. 1170 [139]S[179][177]V[137]1200
  115. 1180 [139]Z[178]1[137]1440
  116. 1190 Q[178]1:[137]1230
  117. 1200 [139]A(R,S)[137]1440
  118. 1210 [143] RIGHT/UP
  119. 1220 [143]"FREFREFREFREFREFREFREFRE
  120. 1230 X=INT(2*RND(1))+1
  121. 1240 ONXGOTO1440,1530
  122. 1250 IFS<>VGOTO1280
  123. 1260 IFZ=1GOTO410
  124. 1270 Q=1:GOTO1290
  125. 1280 IFA(R,S)GOTO410
  126. 1290 GOTO1530
  127. 1300 REM LEFT
  128. 1310 REM"[184][184][184][184]
  129. 1320 A(R[171]1,S[171]1)[178]C
  130. 1330 C[178]C[170]1:B(R[171]1,S[171]1)[178]2:R[178]R[171]1
  131. 1340 [139]C[178]A[137]1670
  132. 1350 Q[178]0:[137]470
  133. 1360 [143] DOWN
  134. 1370 [143]"FREFREFREFRE
  135. 1380 A(R,S-2)=C
  136. 1390 C=C+1
  137. 1400 B(R,S-2)=1:S=S-1:IFC=AGOTO1670
  138. 1410 Q=0:GOTO470
  139. 1420 REM RIGHT
  140. 1430 REM"[184][184][184][184][184]
  141. 1440 A(R[170]1,S[171]1)[178]C
  142. 1450 C[178]C[170]1:[139]B(R,S[171]1)[178]0[137]1470
  143. 1460 B(R,S[171]1)[178]3:[137]1480
  144. 1470 B(R,S[171]1)[178]2
  145. 1480 R[178]R[170]1
  146. 1490 [139]C[178]A[137]1670
  147. 1500 [137]910
  148. 1510 [143] UP
  149. 1520 [143]"FREFRE
  150. 1530 IFQ=1GOTO1610
  151. 1540 A(R,S)=C:C=C+1:IFB(R,S-1)=0GOTO1560
  152. 1550 B(R,S-1)=3:GOTO1570
  153. 1560 B(R,S-1)=1
  154. 1570 S=S+1:IFC=AGOTO1670
  155. 1580 GOTO470
  156. 1590 REM EXIT AT TOP OF SCREEN
  157. 1600 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  158. 1610 Z[178]1
  159. 1620 [139]B(R,S[171]1)[178]0[137]1640
  160. 1630 B(R,S[171]1)[178]3:Q[178]0:[137]410
  161. 1640 B(R,S[171]1)[178]1:Q[178]0:R[178]1:S[178]1:[137]460
  162. 1650 [143] MAKE EXIT IF NOT THERE
  163. 1660 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  164. 1670 IFZ<>1THENX=INT(H*RND(1))+1:B(X,V-1)=B(X,V-1)+1
  165. 1680 REM END OF MAZE BUILD
  166. 1690 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  167. 1700 [133]"STR$O YOU WANT TO SEE ITSINCMDCMDCMD";Z$:[139]Z$[179][177]"Y"[167]X[178]TI:[137]2090
  168. 1710 [153]"ON(null)OU'VE GOT"H[170]V"CMD SECONDS TO LOOK AT IT!":[141]2700
  169. 1720 [141]1730:[151]4[172]256[170]498[171]H[170]40[172]V[170]2[172]AA,30:[151]CO[170]498[171]H[170]40[172]V[170]2[172]AA,2:[137]2080
  170. 1730 M1[178]1:[153]"LOAD";
  171. 1740 Z$[178]"":[139]H[179][177]19[167][129]I[178]1[164]19[171]H:Z$[178]Z$[170]"":[130]
  172. 1750 [139]V[179][177]11[167][129]I[178]1[164]11[171]V:[153]"";:[130]
  173. 1760 [143] 2D DISPLAY ROUTINE
  174. 1770 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  175. 1780 FORJ=VTO1STEP-1
  176. 1790 PRINTZ$;:FORI=1TOH
  177. 1800 IFB(I,J-1)=0GOTO1860
  178. 1810 IFB(I,J-1)=2GOTO1860
  179. 1820 REM PRINT TOP OF CELLS
  180. 1830 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  181. 1840 [153]"(null) ";
  182. 1850 [137]1870
  183. 1860 [153]"(null)TAN";
  184. 1870 [130]I
  185. 1880 [153]"(null)"
  186. 1890 [153]Z$;:[153]"(null)";
  187. 1900 [129]I[178]1[164]H
  188. 1910 [139]B(I,J[171]1)[179]2[137]1960
  189. 1920 [143] PRINT SIDES OF CELLS
  190. 1930 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  191. 1940 PRINT"  ";
  192. 1950 GOTO1970
  193. 1960 PRINT" [221]";
  194. 1970 NEXTI
  195. 1980 PRINT
  196. 1990 NEXTJ
  197. 2000 PRINTZ$;:FORI=1TOH
  198. 2010 IFI=AAGOTO2050
  199. 2020 REM PRINT BOTTOM OF MAZE
  200. 2030 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  201. 2040 [153]"(null)TAN";:[137]2060
  202. 2050 [153]"(null) ";
  203. 2060 [130]I
  204. 2070 [153]"(null)":[142]
  205. 2080 X[178]TI[170](H[170]V)[172]60
  206. 2090 [143] TRANSLATE ROUTINE
  207. 2100 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  208. 2110 REM FORI=1TOH:FORJ=0TOV-1
  209. 2120 REM A(I,J)=(3-B(I,J))*2
  210. 2130 REM NEXTJ,I
  211. 2140 W=AA
  212. 2150 REM COMPLETE CELL INFORMATION
  213. 2160 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  214. 2170 [129]J[178]0[164]V[171]1
  215. 2180 [129]I[178]1[164]H
  216. 2190 [139]J[137]2220
  217. 2200 [139]I[178]W[167]A(I,J)[178](3[171]B(I,J))[172]2:[137]2240
  218. 2210 M[178]1:[137]2230
  219. 2220 M[178](A(I,J[171]1)[175]2)[173]2
  220. 2230 A(I,J)[178](3[171]B(I,J))[172]2[170]M[172]8
  221. 2240 [139]I[178]1[167]M[178]1:[137]2260
  222. 2250 M[178](A(I[171]1,J)[175]4)[173]4
  223. 2260 A(I,J)[178]A(I,J)[170]M
  224. 2270 [130]I
  225. 2280 [130]J
  226. 2290 [143] SET UP START PARAMS
  227. 2300 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  228. 2310 IFX>TIGOTO2310
  229. 2320 PRINT"[147]";:GOSUB2370
  230. 2330 X=W:Y=0:Z=1:EL=1:ER=1
  231. 2340 GOTO3450
  232. 2350 REM INSTRUCTIONS
  233. 2360 REM"[184][184][184][184][184][184][184][184][184][184][184][184]
  234. 2370 [153]"(null)OU CAN GIVE THE FOLLOWING INSTRUCTIONS:";
  235. 2380 [153]"ASCWAITMOVE ASC(null)(null)(null)ATN(null)STR$(null) ONE BLOCK;"
  236. 2390 [153]"(null)WAITTURNCLOSE(null)VALASC(null)CLOSE90 DEGREES;"
  237. 2400 [153]"(null)WAITTURNCLOSE(null)RIGHT$CHR$LEFT$(null)CLOSE90 DEGREES;"
  238. 2410 [153]"LEFT$WAITLEFT$VAL(null)(null)!"
  239. 2420 [141]2700:[142]
  240. 2430 [143] HELP ROUTINE
  241. 2440 [143]"FREFREFREFREFREFREFREFREFREFREFREFRE
  242. 2450 PRINTCHR$(14);:GOSUB1730:PRINT"[217]OU ARE HERE [166], FACING "A$(Z)
  243. 2460 POKE4*256+498-H+40*V+2*X-80*Y,102
  244. 2465 POKECO+498-H+40*V+2*X-80*Y,5
  245. 2470 REM GET INSTRUCTIONS
  246. 2480 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  247. 2490 [139]Y[177]V[137]6180
  248. 2500 [153]"WHAT NOW (E=EXIT)?";
  249. 2505 [143]  GOSUB10000
  250. 2510 [161]Z$:[139]Z$[179][177]""[137]2510
  251. 2520 [161]Z$:[139]Z$[178]""[137]2520
  252. 2522 [139]Z$[179][177]"L"[175]Z$[179][177]"R"[175]Z$[179][177]"F"[175]Z$[179][177]"H"[175]Z$[179][177]"E"[167]2510
  253. 2530 [153]"         ";
  254. 2540 [139]Z$[178]"L"[137]2610
  255. 2550 [139]Z$[178]"R"[137]2650
  256. 2560 [139]Z$[178]"F"[137]3380
  257. 2570 [139]Z$[178]"H"[137]2450
  258. 2575 [139] Z$[178]"E"[167][128]
  259. 2580 [137]2520
  260. 2590 [143] LEFT TURN
  261. 2600 [143]"FREFREFREFREFREFREFREFREFRE
  262. 2610 Z=Z-1:IFZ<1THENZ=Z+4
  263. 2620 GOTO3450
  264. 2630 REM RIGHT TURN
  265. 2640 REM"[184][184][184][184][184][184][184][184][184][184]
  266. 2650 Z[178]Z[170]1:[139]Z[177]4[167]Z[178]Z[171]4
  267. 2660 [137]3450
  268. 2670 [142]
  269. 2680 [143] PAUSE
  270. 2690 [143]"FREFREFREFREFRE
  271. 2700 I=TI+200
  272. 2710 IFI>TIGOTO2710
  273. 2720 RETURN
  274. 2730 REM ROTATE LH CELL AND LOOK
  275. 2740 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  276. 2750 [139]Z[178]1[167]A1[178]A[171]1:B1[178]B[171]1:[137]2800
  277. 2760 [139]Z[178]2[175]B[179]V[167]A1[178]A:B1[178]B:[137]2800
  278. 2770 [139]Z[178]3[167]A1[178]A[170]1:B1[178]B[171]1:[137]2800
  279. 2780 [139]Z[178]4[175]B[177]1[167]A1[178]A:B1[178]B[171]2:[137]2800
  280. 2790 EL[178]1:[142]
  281. 2800 F[178]A(A1,B1):[139]Z[178]1[137]2820
  282. 2810 [129]I[178]2[164]Z:F[178](F[175]14)[173]2[170](F[175]1)[172]8:[130]
  283. 2820 EL[178](F[175]2)[173]2:[142]
  284. 2830 [143] ROTATE RH CELL AND LOOK
  285. 2840 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  286. 2850 IFZ=1THENA1=A+1:B1=B-1:GOTO2900
  287. 2860 IFZ=2ANDB>1THENA1=A:B1=B-2:GOTO2900
  288. 2870 IFZ=3THENA1=A-1:B1=B-1:GOTO2900
  289. 2880 IFZ=4ANDB<VTHENA1=A:B1=B:GOTO2900
  290. 2890 ER=1:RETURN
  291. 2900 F=A(A1,B1):IFZ=1GOTO2920
  292. 2910 FORI=2TOZ:F=(FAND14)/2+(FAND1)*8:NEXT
  293. 2920 ER=(FAND2)/2:RETURN
  294. 2930 REM ROTATE AND LOOK ROUTINE
  295. 2940 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  296. 2950 [139]B[178]0[137]3050
  297. 2960 [139]B[177]V[167]E[178]3:[142]
  298. 2970 F[178]A(A,B[171]1):[139]Z[178]1[137]2990
  299. 2980 [129]I[178]2[164]Z:F[178](F[175]14)[173]2[170](F[175]1)[172]8:[130]
  300. 2990 C[178]F[175]1:D[178](F[175]4)[173]4:E[178](F[175]2)[173]2
  301. 3000 [139]C[178]0[167][141]2730
  302. 3010 [139]D[178]0[167][141]2830
  303. 3020 [142]
  304. 3030 [143] OUTSIDE MAZE
  305. 3040 [143]"FREFREFREFREFREFREFREFREFREFREFREFRE
  306. 3050 C=0:D=0:E=-1
  307. 3060 IFZ<>1GOTO3120
  308. 3070 E=1
  309. 3080 IFA=WTHENE=0
  310. 3090 RETURN
  311. 3100 REM NO MAN'S LAND
  312. 3110 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184]
  313. 3120 [139]Z[178]3[167]E[178]2:[142]
  314. 3130 [139]Z[178]2[175]A[178]H[167]E[178]2:[142]
  315. 3140 [139]Z[178]4[175]A[178]1[167]E[178]2:[142]
  316. 3150 [142]
  317. 3160 [143] INDEX TO NEXT CELL
  318. 3170 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  319. 3180 IFE>0GOTO3260
  320. 3190 IFZ=1THENB=B+1:RETURN
  321. 3200 IFZ=2THENA=A+1:RETURN
  322. 3210 IFZ=3THENB=B-1:RETURN
  323. 3220 IFZ=4THENA=A-1:RETURN
  324. 3230 REM MESSAGE ROUTINE
  325. 3240 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  326. 3250 [153]"";:[142]
  327. 3260 [139]E[178]0[137]3310
  328. 3270 [141]3250:[153]"YOU'LL HIT THE WALL"
  329. 3280 [141]3250:[139]C[178]0[175]D[178]0[175]B[167][153]"TURN":[137]3340
  330. 3290 [139]C[178]1[176](B[178]0[175]A[179]W)[167][153]"TURN RIGHT":[137]3340
  331. 3300 [153]"TURN LEFT":[137]3340
  332. 3310 [141]6300:[153]"ONON*    NO     *
  333. 3320 PRINT"*   MAN'S   *
  334. 3330 [153]"*   LAND    *
  335. 3340 S=1
  336. 3350 RETURN
  337. 3360 REM FORWARD ROUTINE
  338. 3370 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  339. 3380 A[178]X:B[178]Y
  340. 3390 [141]2950
  341. 3400 [141]3180
  342. 3410 X[178]A:Y[178]B
  343. 3420 [139]E[177]0[137]2490
  344. 3430 [143] 3D DISPLAY ROUTINE
  345. 3440 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  346. 3450 A=X:B=Y
  347. 3460 GOSUB2950
  348. 3470 REM 5 DEPTHS
  349. 3480 REM"[184][184][184][184][184][184][184][184]
  350. 3490 [129]T[178]1[164]5
  351. 3500 [141]3650
  352. 3510 [143] CHECK FOR NEXT DEPTH
  353. 3520 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  354. 3530 IFETHENT=5:GOTO3570
  355. 3540 GOSUB3180
  356. 3550 GOSUB2950
  357. 3560 IFE>1THENT=5:GOTO3570
  358. 3570 NEXTT
  359. 3580 IFX=WANDY=0ANDZ=1THENGOSUB6330:PRINT"[145]*  WAY  IN  *":GOTO3620
  360. 3590 IFX<>WANDY=0ANDZ=1THENGOSUB3250:PRINT"[145][145][145][145]EXTERNAL WALL":GOTO3610
  361. 3600 GOTO3620
  362. 3610 GOSUB3250:PRINT"[145][145]YOU'RE OUTSIDE!
  363. 3620 [137]2490
  364. 3630 [143] JUMP TO DISPLAY DEPTH
  365. 3640 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  366. 3650 ONTGOTO3660,4110,4740,5350,5900
  367. 3660 REM DISPLAY DEPTH 1
  368. 3670 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  369. 3680 [153][199](142);:[153]"LOAD";
  370. 3690 [139]E[177]2[167][142]
  371. 3700 [139]E[179]0[176]E[177]1[167][141]3310:[142]
  372. 3710 [129]I[178]1[164]21:[139]C[178]1[167][153]"THEN";:[137]3770
  373. 3720 [139]Y[178]0[167][153]""[202](W$,(I[175]1)[170]1,8);:[137]3770
  374. 3730 [139]EL[178]1[167][153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(";:[137]3770
  375. 3740 [139]I[178]2[167][153]"TOTOTOTOTOTOTOSPC(";:[137]3770
  376. 3750 [139]I[179]18[167][153]"SPC(";:[137]3770
  377. 3760 [153]"       WAITSPC(";
  378. 3770 [139]E[178]0[167][153]"";:[137]3800
  379. 3780 [139]Y[178]0[167][153][202](W$,(I[175]1)[170]1,22);:[137]3800
  380. 3790 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(";
  381. 3800 [139]D[178]1[167][153]"FN":[137]3860
  382. 3810 [139]Y[178]0[167][153][202](W$,(I[175]1)[170]1,8):[137]3860
  383. 3820 [139]ER[178]1[167][153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(":[137]3860
  384. 3830 [139]I[178]2[167][153]"SPC(TOTOTOTOTOTOTO":[137]3860
  385. 3840 [139]I[179]18[167][153]"SPC(":[137]3860
  386. 3850 [153]"SPC(       "
  387. 3860 [130]
  388. 3870 [129]I[178]1[164]3:[139]C[178]1[176](X[178]W[175]Y[178]0)[137]3930
  389. 3880 [145]I[137]3890,3910,3920
  390. 3890 [139]EL[178]0[167][153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)";:[137]3970
  391. 3900 [153]"       (null)";:[137]3970
  392. 3910 [153]"      (null) ";:[137]3980
  393. 3920 [153]"     (null)  ";:[137]3980
  394. 3930 [145]I[137]3940,3950,3960
  395. 3940 [153]"STEP";:[137]3970
  396. 3950 [153]"STEP ";:[137]3980
  397. 3960 [153]"STEP  ";:[137]3980
  398. 3970 [139]E[178]0[167][153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(";:[137]3990
  399. 3980 [153]"                      ";
  400. 3990 [139]D[178]1[176](X[178]W[175]Y[178]0)[137]4050
  401. 4000 [145]I[137]4010,4030,4040
  402. 4010 [139]ER[178]0[167][153]"(null)TAB(TAB(TAB(TAB(TAB(TAB(TAB(":[137]4090
  403. 4020 [153]"(null)       ":[137]4090
  404. 4030 [153]" (null)      ":[137]4090
  405. 4040 [153]"  (null)     ":[137]4090
  406. 4050 [145]I[137]4060,4070,4080
  407. 4060 [153]"(null)":[137]4090
  408. 4070 [153]" (null)":[137]4090
  409. 4080 [153]"  (null)"
  410. 4090 [130]I
  411. 4100 [142]
  412. 4110 [143] DISPLAY DEPTH 2
  413. 4120 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  414. 4130 PRINT"";:Z$=""
  415. 4140 FORI=1TO2:PRINTZ$;:IFC=0GOTO4180
  416. 4150 ONIGOTO4160,4170
  417. 4160 PRINT"[205]";:GOTO4220
  418. 4170 PRINT"[205]";:GOTO4220
  419. 4180 ONIGOTO4190,4200
  420. 4190 PRINT"";:GOTO4220
  421. 4200 IFEL=1THENPRINT"[164][164][164][164]";:GOTO4220
  422. 4210 PRINT"[164]";
  423. 4220 IFE=0ORI=1THENPRINT"";:GOTO4240
  424. 4230 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  425. 4240 IFD=0GOTO4280
  426. 4250 ONIGOTO4260,4270
  427. 4260 PRINT"[206]":GOTO4320
  428. 4270 PRINT"[206]":GOTO4320
  429. 4280 ONIGOTO4290,4300
  430. 4290 PRINT:GOTO4320
  431. 4300 IFER=1THENPRINT"[164][164][164][164]":GOTO4320
  432. 4310 PRINT"[164]"
  433. 4320 NEXT
  434. 4330 FORI=1TO15:PRINTZ$;:IFC=1THENPRINT"[167]";:GOTO4380
  435. 4340 IFEL=1THENPRINT"[166][166][166][166][146]";:GOTO4380
  436. 4350 IFI=3THENPRINT"[164][164][164][166][146]";:GOTO4380
  437. 4360 IFI>12THENPRINT"   [166][146]";:GOTO4380
  438. 4370 PRINT"   [166][146]";
  439. 4380 IFE=0THENPRINT"";:GOTO4400
  440. 4390 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][146]";
  441. 4400 IFD=1THENPRINT"[165]":GOTO4450
  442. 4410 IFER=1THENPRINT"[166][166][166][166]":GOTO4450
  443. 4420 IFI=3THENPRINT"[166][146][164][164][164]":GOTO4450
  444. 4430 IFI>12THENPRINT"[166]   ":GOTO4450
  445. 4440 PRINT"[166]"
  446. 4450 NEXT
  447. 4460 FORI=1TO4:PRINTZ$;:IFC=1GOTO4530
  448. 4470 ONIGOTO4480,4500,4510,4520
  449. 4480 IFEL=0THENPRINT"[163][163][163][206]";:GOTO4580
  450. 4490 PRINT"   [206]";:GOTO4580
  451. 4500 PRINT"  [206] ";:GOTO4590
  452. 4510 PRINT" [206]  ";:GOTO4590
  453. 4520 PRINT"[206]   ";:GOTO4590
  454. 4530 ONIGOTO4540,4550,4560,4570
  455. 4540 PRINT"[169]";:GOTO4580
  456. 4550 PRINT"[169] ";:GOTO4590
  457. 4560 PRINT"[169]  ";:GOTO4590
  458. 4570 PRINT"[169]   ";:GOTO4590
  459. 4580 IFE=0THENPRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163]";:GOTO4600
  460. 4590 PRINT"              ";
  461. 4600 IFD=1GOTO4670
  462. 4610 ONIGOTO4620,4640,4650,4660
  463. 4620 IFER=0THENPRINT"[205][163][163][163]":GOTO4720
  464. 4630 PRINT"[205]   ":GOTO4720
  465. 4640 PRINT" [205]  ":GOTO4720
  466. 4650 PRINT"  [205] ":GOTO4720
  467. 4660 PRINT"   [205]":GOTO4720
  468. 4670 ONIGOTO4680,4690,4700,4710
  469. 4680 PRINT"[223]":GOTO4720
  470. 4690 PRINT" [223]":GOTO4720
  471. 4700 PRINT"  [223]":GOTO4720
  472. 4710 PRINT"   [223]"
  473. 4720 NEXTI
  474. 4730 RETURN
  475. 4740 REM DISPLAY DEPTH 3
  476. 4750 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  477. 4760 [153]"";:Z$[178]Z$[170]""
  478. 4770 [129]I[178]1[164]3:[153]Z$;:[139]C[178]0[137]4820
  479. 4780 [145]I[137]4790,4800,4810
  480. 4790 [153]"(null)";:[137]4860
  481. 4800 [153]"(null)";:[137]4860
  482. 4810 [153]"(null)";:[137]4860
  483. 4820 [145]I[137]4830,4830,4840
  484. 4830 [153]"";:[137]4860
  485. 4840 [139]EL[178]1[167][153]"TOTOTO";:[137]4860
  486. 4850 [153]"TO";
  487. 4860 [139]E[178]0[176]I[179][178]2[167][153]"";:[137]4880
  488. 4870 [153]"TOTOTOTOTOTOTOTO";
  489. 4880 [139]D[178]0[137]4930
  490. 4890 [145]I[137]4900,4910,4920
  491. 4900 [153]"(null)":[137]4970
  492. 4910 [153]"(null)":[137]4970
  493. 4920 [153]"(null)":[137]4970
  494. 4930 [145]I[137]4940,4940,4950
  495. 4940 [153]:[137]4970
  496. 4950 [139]ER[178]1[167][153]"TOTOTO":[137]4970
  497. 4960 [153]"TO"
  498. 4970 [130]
  499. 4980 [129]I[178]1[164]9:[153]Z$;:[139]C[178]1[167][153]"THEN";:[137]5030
  500. 4990 [139]EL[178]1[167][153]"SPC(SPC(SPC(";:[137]5030
  501. 5000 [139]I[178]2[167][153]"TOTOSPC(";:[137]5030
  502. 5010 [139]I[177]7[167][153]"  WAITSPC(";:[137]5030
  503. 5020 [153]"  SPC(";
  504. 5030 [139]E[178]0[167][153]"";:[137]5050
  505. 5040 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(";
  506. 5050 [139]D[178]1[167][153]"FN":[137]5100
  507. 5060 [139]ER[178]1[167][153]"SPC(SPC(SPC(":[137]5100
  508. 5070 [139]I[178]2[167][153]"SPC(TOTO":[137]5100
  509. 5080 [139]I[177]7[167][153]"SPC(  WAIT":[137]5100
  510. 5090 [153]"SPC("
  511. 5100 [130]
  512. 5110 [129]I[178]1[164]3:[153]Z$;:[139]C[178]1[137]5170
  513. 5120 [145]I[137]5130,5150,5160
  514. 5130 [139]EL[178]0[167][153]"TAB(TAB((null)";:[137]5210
  515. 5140 [153]"  (null)";:[137]5210
  516. 5150 [153]" (null) ";:[137]5220
  517. 5160 [153]"(null)  ";:[137]5220
  518. 5170 [145]I[137]5180,5190,5200
  519. 5180 [153]"STEP";:[137]5210
  520. 5190 [153]"STEP ";:[137]5220
  521. 5200 [153]"STEP  ";:[137]5220
  522. 5210 [139]E[178]0[167][153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(";:[137]5230
  523. 5220 [153]"        ";
  524. 5230 [139]D[178]1[137]5290
  525. 5240 [145]I[137]5250,5270,5280
  526. 5250 [139]ER[178]0[167][153]"(null)TAB(TAB(":[137]5330
  527. 5260 [153]"(null)  ":[137]5330
  528. 5270 [153]" (null) ":[137]5330
  529. 5280 [153]"  (null)":[137]5330
  530. 5290 [145]I[137]5300,5310,5320
  531. 5300 [153]"(null)":[137]5330
  532. 5310 [153]" (null)":[137]5330
  533. 5320 [153]"  (null)"
  534. 5330 [130]I
  535. 5340 [142]
  536. 5350 [143] DISPLAY DEPTH 4
  537. 5360 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  538. 5370 PRINT"";:Z$=Z$+""
  539. 5380 FORI=1TO2:PRINTZ$;:IFC=0GOTO5420
  540. 5390 ONIGOTO5400,5410
  541. 5400 PRINT"[205]";:GOTO5460
  542. 5410 PRINT"[205]";:GOTO5460
  543. 5420 ONIGOTO5430,5440
  544. 5430 PRINT"";:GOTO5460
  545. 5440 IFEL=1THENPRINT"[164][164]";:GOTO5460
  546. 5450 PRINT"[164]";
  547. 5460 IFE=0ORI=1THENPRINT"";:GOTO5480
  548. 5470 PRINT"[164][164][164][164]";
  549. 5480 IFD=0GOTO5520
  550. 5490 ONIGOTO5500,5510
  551. 5500 PRINT"[206]":GOTO5560
  552. 5510 PRINT"[206]":GOTO5560
  553. 5520 ONIGOTO5530,5540
  554. 5530 PRINT:GOTO5560
  555. 5540 IFER=1THENPRINT"[164][164]":GOTO5560
  556. 5550 PRINT"[164]"
  557. 5560 NEXT
  558. 5570 FORI=1TO5:PRINTZ$;:IFC=1THENPRINT"[167]";:GOTO5620
  559. 5580 IFEL=1THENPRINT"[166][166][146]";:GOTO5620
  560. 5590 IFI=1THENPRINT"[164][166][146]";:GOTO5620
  561. 5600 IFI>4THENPRINT"[163][166][146]";:GOTO5620
  562. 5610 PRINT" [166][146]";
  563. 5620 IFE=0THENPRINT"";:GOTO5640
  564. 5630 PRINT"[166][166][166][166][146]";
  565. 5640 IFD=1THENPRINT"[165]":GOTO5690
  566. 5650 IFER=1THENPRINT"[166][166]":GOTO5690
  567. 5660 IFI=1THENPRINT"[166][146][164]":GOTO5690
  568. 5670 IFI>4THENPRINT"[166] ":GOTO5690
  569. 5680 PRINT"[166]"
  570. 5690 NEXT
  571. 5700 FORI=1TO2:PRINTZ$;:IFC=1GOTO5750
  572. 5710 ONIGOTO5720,5740
  573. 5720 IFEL=0THENPRINT"[163][206]";:GOTO5780
  574. 5730 PRINT" [206]";:GOTO5780
  575. 5740 PRINT"[206] ";:GOTO5790
  576. 5750 ONIGOTO5760,5770
  577. 5760 PRINT"[169]";:GOTO5780
  578. 5770 PRINT"[169] ";:GOTO5790
  579. 5780 IFE=0THENPRINT"[163][163][163][163]";:GOTO5800
  580. 5790 PRINT"    ";
  581. 5800 IFD=1GOTO5850
  582. 5810 ONIGOTO5820,5840
  583. 5820 IFER=0THENPRINT"[205][163]":GOTO5880
  584. 5830 PRINT"[205] ":GOTO5880
  585. 5840 PRINT" [205]":GOTO5880
  586. 5850 ONIGOTO5860,5870
  587. 5860 PRINT"[223]":GOTO5880
  588. 5870 PRINT" [223]":GOTO5880
  589. 5880 NEXTI
  590. 5890 RETURN
  591. 5900 REM DISPLAY DEPTH 5
  592. 5910 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  593. 5920 [153]"";:Z$[178]Z$[170]""
  594. 5930 [153]Z$;:[139]C[178]0[137]5950
  595. 5940 [153]"(null)";:[137]5960
  596. 5950 [153]"TO";
  597. 5960 [139]E[178]0[167][153]"";:[137]5980
  598. 5970 [153]"TOTO";
  599. 5980 [139]D[178]0[137]6000
  600. 5990 [153]"(null)":[137]6010
  601. 6000 [153]"TO"
  602. 6010 [129]I[178]1[164]3:[153]Z$;:[139]C[178]1[137]6030
  603. 6020 [153]"SPC(";:[137]6040
  604. 6030 [153]"THEN";
  605. 6040 [139]E[178]0[167][153]"";:[137]6060
  606. 6050 [153]"SPC(SPC(";
  607. 6060 [139]D[178]0[167][153]"SPC(":[137]6080
  608. 6070 [153]"FN"
  609. 6080 [130]
  610. 6090 [153]Z$;:[139]C[178]1[137]6110
  611. 6100 [153]"(null)";:[137]6120
  612. 6110 [153]"STEP";
  613. 6120 [139]E[178]1[167][153]"  ";:[137]6140
  614. 6130 [153]"TAB(TAB(";
  615. 6140 [139]D[178]1[137]6160
  616. 6150 [153]"(null)":[137]6170
  617. 6160 [153]"(null)"
  618. 6170 [142]
  619. 6180 [141]6300
  620. 6190 [153]"ON*  WAY OUT  *
  621. 6200 GOSUB2700:PRINTCHR$(142);:IFM1THENPRINT"":GOTO6250
  622. 6210 PRINT"[147][200][197][210][197][160][201][211][160][212][200][197][160][205][193][218][197]":GOSUB2700
  623. 6220 GOSUB1730
  624. 6230 X=TI+(H+V)*60
  625. 6240 IFX>TIGOTO6240
  626. 6250 PRINTCHR$(14)"[193][206][207][212][200][197][210][160][199][193][205][197]?";
  627. 6260 GETZ$:IFZ$<>""GOTO6260
  628. 6270 GETZ$:IFZ$=""GOTO6270
  629. 6280 PRINT"[147]":IFZ$="Y"GOTO220
  630. 6290 END
  631. 6300 REM PRINT TEXT BORDER
  632. 6310 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  633. 6320 [153]"LOAD"
  634. 6322 [153]"   LLOYDS BANK IMPROVED 16K LABYRINTH"
  635. 6324 [153]"   FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
  636. 6330 [153]"*************
  637. 6335 PRINT"*           *
  638. 6340 [153]"*           *
  639. 6350 PRINT"*           *
  640. 6380 [153]"*************ONON
  641. 6390 RETURN
  642. 9000 POKEG+32,S:POKEG+33,B
  643. 10000 GETA$:ON-(A$="")GOTO10000:ONVAL(A$)GOTO10100,10200:RETURN
  644. 10100 S=S+1:IFS=15THENS=1
  645. 10110 GOTO9000
  646. 10200 B=B+1:IFB=15THENB=1
  647. 10210 GOTO9000
  648.